home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / biz / dbase / phonemas.lha / PM5 / Install_PM5 < prev    next >
Text File  |  1997-04-13  |  4KB  |  159 lines
  1. ;
  2. ; PM5 Installer v1.2
  3. ;
  4. (complete 5)
  5.  
  6. (askbool
  7.     (prompt "\n\nPhonemaster is shareware, and should be registered,\n"
  8.            "If used on a regulary basis...  Thanks!\n\n"
  9.            "Phonemaster v5.xx was created by Fini 'Warp' Alring of GiGA Prod.©96/97\n\n"
  10.            "Phonemaster needs Reqtools.library and Rexxreqtools.library\n"
  11.            "You can get them on AmiNET etc... You probably have them already.\n\n"
  12.            "Sys:System/Rexxmast must also be running...\n"
  13.            "NOTE: You can saftely UPDATE, phonemaster with this installer!!!"
  14.     )       
  15.     (choices "Okay!" "Okay!")
  16.     (help "Go on, and install!")
  17. )
  18.  
  19. (complete 10)
  20.  
  21. (set PM5_dest (
  22.            (askdir
  23.             (prompt "Please select where you want to install Phonemaster v5.xx.\n"
  24.                     "A drawer called Phonemaster will be created for it of'coz!"
  25.             )
  26.             (help @askdir-help)
  27.             (default "Sys:tools/")
  28.            )
  29.            )
  30. )
  31.  
  32. (complete 20)
  33.  
  34. (copyfiles (source "")
  35.            (dest PM5_dest)
  36.            (prompt "Installing the Phonemaster dir...")
  37.            (infos)
  38.            (choices "Phonemaster")
  39.            (Optional "askuser" "force")
  40. )    
  41.  
  42. (complete 50)
  43.  
  44. (copyfiles (source "")
  45.            (dest "C:")
  46.            (prompt "Installing C:PM5...")
  47.            (choices "C/PM5")
  48.            (Optional "askuser" "force")
  49. )                  
  50.  
  51. (complete 55)
  52.  
  53. (set OPUS
  54.     (askbool
  55.         (prompt "Do you want to install  DOpus v5.xx filetype?\n Hit Help for more info...")
  56.         (choices "Yes, I do" "No, I don't have DOpus v5.xx")
  57.         (help "You can choose to install a Filetype for Dopus v5.xx\n"
  58.              "It will allow you to double click on Phone-files, to start phonemaster automatically...\n Recommended!"
  59.         )
  60.     )
  61. )
  62.  
  63. (complete 60)
  64.  
  65. (if OPUS
  66.     (copyfiles (source "")
  67.                (dest "DOpus5:filetypes/")
  68.                (prompt "Installing Dopus v5.xx filetype...")
  69.                (choices "DOpus5/filetypes/Phonemaster-file")
  70.                (Optional "askuser" "force")
  71.     )  
  72. )
  73.  
  74.  
  75. (complete 70)
  76.  
  77. (set BOOL
  78.     (askbool
  79.         (set eChar (substr PM5_dest (- (strlen PM5_dest) 1)) )
  80.             (if (= eChar ":")
  81.                 (
  82.                     (prompt  "A single assignment need to be added to your user-startup.\n"
  83.                         "It looks like this:   Assign PM5: "PM5_dest"Phonemaster\n"
  84.                         "(See help for more info)"
  85.                     )
  86.                 )
  87.                 (
  88.                     (prompt  "A single assignment need to be added to your user-startup.\n"
  89.                             "It looks like this:   Assign PM5: "PM5_dest"/Phonemaster\n"
  90.                             "(See help for more info)"
  91.                     )
  92.                 )    
  93.             )      
  94.         
  95.     
  96.          (help    "PM5 needs a single assignment to be added "
  97.                    "to the s:user-startup file. "
  98.                    "If you do not do this, then PM5 will not work."
  99.                    "If you have MCP, AssignEngine etc. Skip this part,"
  100.                    "And assign PM5: with that manually instead."
  101.           )
  102.            (choices "OK! Add the line" "Skip it! - I'll do it myself!")
  103.            (default 0)
  104.     )
  105. )
  106.  
  107. (complete 80)
  108.  
  109.  
  110. (set eChar (substr PM5_dest (- (strlen PM5_dest) 1)) )
  111. (if (= eChar ":")
  112.     (    
  113.         (set PM5_fulldest (cat PM5_dest "Phonemaster"))
  114.         (makeassign "PM5" PM5_fulldest)
  115.     )
  116.     (
  117.         (set PM5_fulldest (cat PM5_dest "/Phonemaster"))
  118.         (makeassign "PM5" PM5_fulldest)
  119.     )    
  120. )      
  121.  
  122.  
  123. (complete 85)
  124.  
  125. (if BOOL
  126.     
  127.     (startup   "Phonemaster v5.xx"
  128.         (prompt " The required Assignment has been set for you to run PM5. \n\n"
  129.             "You may wish to check the s:User-Startup file to "
  130.             "be sure everything is in the proper place."    
  131.         )
  132.         (help "No more help here...")
  133.     
  134.     
  135.         (set eChar (substr PM5_dest (- (strlen PM5_dest) 1)) )
  136.         (if (= eChar ":")
  137.             (command "assign PM5: \"" PM5_dest "Phonemaster\"\n")
  138.             (command "assign PM5: \"" PM5_dest "/Phonemaster\"\n")
  139.         )      
  140.     )
  141. )
  142.  
  143.  
  144. (complete 99)
  145.  
  146. (askbool
  147.    (prompt "To start phonemaster type >  PM5  < from shell.\n"
  148.             "Or use the icons in the Phonemaster drawer.\n\n"
  149.             "Please read the guide for further info...\n\n"
  150.             "You may have to reboot, in order for the assign to work.\n"
  151.          "NOTE: If you have updated Phonemaster, then delete PM5: Fini.jpeg."
  152.    )
  153.    (help   "No help here...")
  154.    (choices "Have fun!" "Have even more fun!!!")
  155.    (default 0)
  156. )
  157.  
  158. (complete 100)
  159.